1 REM DEFAULT SETUP
6 J=56320:POKE53280,5:POKE53281,13:PRINT"[144]"
10 REM COLOR SELECT
20 GOSUB 10000 : REM CURRENT SETUP
30 PRINT"[147][144]"
32 PRINT" [200]ERE YOU CAN SET THE DEFAULTS FOR THE"
34 PRINT"[205][213][211][201][195] AND THE [195][207][204][207][210]/[194][204][193][195][203] & [215][200][201][212][197] FLAGS."
36 :
38 MU$="ON ":PRINT"<[205]>USIC          :";:IFMU=0THENMU$="OFF"
39 PRINTMU$
40 SD$="COLOR        ":PRINT"<[211]>CREEN [196]ISPLAY :";
41 IFSD=0THENSD$="BLACK & WHITE"
42 PRINTSD$
43 :
44 PRINT"  [208]RESS <[205]> TO TOGGLE [205][213][211][201][195]"
45 PRINT"  [208]RESS <[211]> TO TOGGLE [211][195][210][197][197][206] [196][201][211][208][204][193][217]"
46 PRINT"  [208]RESS <_> TO [211][193][214][197] DEFAULTS"
47 PRINT"  [208]RESS <[209]> TO [209][213][201][212]"
50 POKE198,0:WAIT198,1:GETA$
52 IFA$="M"THENMU=NOT(MU):GOTO30
54 IFA$="S"THENSD=NOT(SD):GOTO30
56 IFA$="Q"THENGOSUB20000:GOTO20
57 IFA$="_"THEN90
60 GOTO30
70 :
90 GOSUB 12000 : REM ARE THESE OK
92 IFNOT(OK)THEN30
94 :
100 GOSUB 15000: REM CURRENT SIDE
102 SB=SI      : REM SIDE BOOTED
105 NS=2       : REM NUMBER OF SIDES
110 CS=1
120 GOSUB13000 : REM WRITE DATA TO FILE
130 CS=CS+1    : REM ON SIDE CS
140 IFCS<=NSTHEN120
150 :
160 GOTO14000 : REM PUT SIDE SB IN
200 :
10000 REM GET CURRENT SETUP
10010 OPEN15,8,15,"I0"
10020 OPEN3,8,4,"SETUP"
10030 INPUT#3,D$(1),D$(2),D$(3),D$(4),D$(5),D$(6),D$(7)
10040 MU=VAL(D$(6))
10042 SD=VAL(D$(7))
10046 CLOSE3:CLOSE15
10050 RETURN
10060 :
11250 :
12000 REM THESE OK
12005 :
12010 PRINT"[147]"SPC(7)"[205]USIC : "MU$:PRINTSPC(7)"[211]CREEN [196]ISPLAY : "SD$
12015 PRINT" [193]RE THESE SETTINGS WHAT YOU WANT ([217]/[206])?"
12020 POKE198,0:WAIT198,1:GETA$
12025 IFA$<>"Y"ANDA$<>"N"THEN12020
12030 IFA$="Y"THENOK=-1
12040 IFA$="N"THENOK=0
12050 RETURN
13000 REM  WRITE DATA TO DISK
13010 PRINT"[147][144]":POKE53281,1:POKE53280,4
13020 PRINT"  [208]LEASE PLACE SIDE #"CS"OF [204][207][193][196][211][212][193][210] IN"
13025 PRINT"     THE DRIVE AND PRESS [[211][208][193][195][197]]."
13030 POKE198,0:WAIT198,1:GETA$:IFA$<>" "THEN13030
13040 GOSUB15000: REM WHAT SIDE IS IT?
13050 IFSI=CSTHEN13100
13060 PRINT"   !!! [211]IDE #"CS"NOT FOUND... !!!"
13070 FORDL=1TO2000:NEXT:GOTO13000
13080 :
13100 REM  OK, WRITE DATA
13110 OPEN15,8,15,"I0"
13120 D$(7)="0":IFSD=-1THEND$(7)="-1"
13122 D$(6)="0":IFMU=-1THEND$(6)="-1"
13130 OPEN3,8,4,"SETUP":CR$=CHR$(13)
13140 PRINT#15,"P
"CHR$(0)"
";
13150 PRINT#3,D$(1)CR$D$(2)CR$D$(3)CR$D$(4)CR$D$(5)CR$D$(6)CR$D$(7)CR$
13160 CLOSE3:CLOSE15
13170 RETURN
13180 :
13999 END
14000 REM  PUT SIDE ONE BACK IN
14010 PRINT"[147][144]":POKE53281,1:POKE53280,4
14020 PRINT"  [208]LEASE PLACE SIDE # 1 OF [204][207][193][196][211][212][193][210] IN"
14022 PRINT" YOUR DRIVE AND PRESS [[211][208][193][195][197]] TO RETURN"
14023 PRINT" TO THE [204][207][193][196][211][212][193][210] MENU.":POKE198,.
14030 GETA$:IFA$<>" "THEN14030
14040 GOSUB15000: REM WHAT SIDE IS IT?
14050 IFSI=1THEN14100
14060 PRINT"   !!! [211]IDE # 1 NOT FOUND... !!!"
14070 FORDL=1TO2000:NEXT:GOTO14000
14080 :
14100 GOTO60000 : REM CONNECT BACK
14130 :
15000 REM READ CURRENT SIDE
15010 OPEN15,8,15,"I0":CLOSE15
15020 OPEN2,8,2,"$"
15030 FORI=0TO156:GET#2,A$:NEXT
15040 GET#2,A$:SI=VAL(A$):CLOSE2
15050 RETURN
15060 :
20000 REM QUIT
20010 PRINT"[147]  [193]RE YOU SURE YOU WANT TO QUIT ([217]/[206])?"
20020 POKE198,0:WAIT198,1:GETA$
20025 IFA$<>"Y"ANDA$<>"N"THEN20020
20030 IFA$="Y"THEN60000 : REM QUIT
20040 IFA$="N"THENRETURN
20050 :
30000 REM SAME BACKGROUND AND TEXT
30010 POKE53281,1:PRINT"[147][144]   [215]HY DID YOU PICK THE SAME COLOR FOR"
30020 PRINT"    THE [194][193][195][203][199][210][207][213][206][196] AND THE [212][197][216][212]???"
30030 PRINT"          [212]RY PICKING AGAIN..."
30040 FORDL=1TO3200:NEXT:RETURN
60000 REM  RETURN TO CUSTOMIZE MENU
60010 PRINT"[147]LOAD"CHR$(34)"CUSTOM LS BOOT"CHR$(34)",8":PRINT"RUN"
60020 POKE631,13:POKE632,13:POKE198,2:END